home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / insertversion.bed < prev    next >
Text File  |  1997-12-03  |  504b  |  27 lines
  1. /*
  2. ** $VER: InsertVersion.bed 1.0 (02.01.96)
  3. **
  4. ** Insert an AmigaDOS version string at the current cursor position,
  5. ** taking the current filename and date.
  6. **
  7. ** Written by Chris Bailey
  8. ** Modified by Martin Taillefer
  9. ** Modified by Marco Negri
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetFileInfo
  15. PARSE VAR RESULT . . '"'name'"'
  16.  
  17. date = DATE(e);
  18.  
  19. day = SUBSTR(date,1,2)
  20. month = SUBSTR(date,4,2)
  21. year = SUBSTR(date,7,2)
  22.  
  23. str = "$VER: " || name || " .0 (" || day || "." || month || "." || year || ")"
  24. Text str
  25.  
  26. MoveLeft 13
  27.